proc testtabs:
local m%,i%
cls
do
  minit
  mcard "Tab Test","Vertical",%v,"Horizontal",%h,"Exit",%x
  m%=menu
  if m%=%v
    lopen "PAR:A"
    lprint "Vertical Tab Test"
    i%=1
    while i%<5
      lprint chr$(11);"VTAB",i%;
      i%=i%+1
    endwh
    lprint chr$(12);
    lclose
  elseif m%=%h
    lopen "PAR:A"
    lprint "Horizontal Tab Test"
    i%=1
    while i%<5
      lprint chr$(9);"VTAB",i%;
      i%=i%+1
    endwh
    lprint chr$(12);
    lclose
  endif
until m%=%x
endp